home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD School House 9
/
CD School House 9.0 - Wayzata Technology (1994).iso
/
pc
/
dos
/
teachaid
/
par
/
example5.pom
< prev
next >
Wrap
Text File
|
1994-05-19
|
691b
|
32 lines
;
; Divide up the input line because it is more than 255 characters wide
;
SPLIT 005-100 102-168 170-300
;
; Extract the fields
;
IF LineNum = "" THEN Name = $FLUPC[ 1 35]
IF LineNum = "1" THEN Phone = $FLINE[53 67]
IF LineNum = "2" THEN Descrip = $FLINE[ 1 76]
;
; Remove surrounding spaces
;
TRIM Name "B" " "
TRIM Phone "B" " "
TRIM Descrip "B" " "
;
; Build the line (but be sure that no OUT or OUTEND outputs over 255 characters)
;
OUT LineNum = "" |"{Name}",
OUT LineNum = "1" |"{Phone}",
OUTEND LineNum = "2" |"{Descrip}"
;
; Reset line counter
;
IF LineNum = "2" THEN LineNum = "" ELSE LineNum+